home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 4 / BBS in a Box - Macintosh - Volume IV (January 1992) (BBS in a Box).iso / Files / Hyper / Ss-Sz / Summarizer.cpt / Summarizer 1.3 / stack_-1.xml < prev    next >
Encoding:
Extensible Markup Language  |  1987-12-25  |  4.0 KB  |  16 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.3</name>
  5.     <id>-1</id>
  6.     <cardCount>12</cardCount>
  7.     <cardID>3853</cardID>
  8.     <listID>4555</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on openstack
  17. set userlevel to 5
  18. hide menubar
  19. get short name of stack
  20. put it into card field "stkname"
  21. wait 2 seconds
  22. go to card "ChptLstCrd"
  23. end openstack
  24.  
  25. on domenu
  26. global ptype
  27. put the param of 1 into ptype
  28. if ptype contains "paste" then
  29. if ptype is "paste card" then
  30. get the short name of the target
  31. if it is "Add topics" or it is "Contents" or it is "Insert" then
  32. pass domenu
  33. else  -- pasting but not card
  34. beep 1
  35. put "Make menus first, THEN copy text/graphics, not vice versa!"
  36. answer "You are trying to paste a card!..." with "OK"
  37. answer "Only Summarizer may paste cards!" with "OK"
  38. put empty into msg
  39. hide msg
  40. exit domenu
  41. end if
  42. end if
  43. answer "About to" && ptype && "from clipboard" with "Cancel" or "OK"
  44. if it is "Cancel" then exit domenu
  45. end if
  46. if ptype contains "cut" or ptype contains "copy" then
  47. if ptype is "cut picture" or ptype is "copy picture" then
  48. put "Make menus first, THEN copy text/graphics, not vice versa!"
  49. answer "Have you made menus for this graphic yet?" ¬¨
  50. with "No" or "Yes"
  51. if it is "No" then
  52. hide msg
  53. exit domenu
  54. end if
  55. end if
  56. if ptype is "cut " then
  57. beep 1
  58. answer "There must be graphics to cut!" with "OK"
  59. exit domenu
  60. end if
  61. end if
  62. hide msg
  63. pass domenu
  64. end domenu
  65.  
  66. on MakePage
  67. put empty into NwCrd
  68. put field "HeaderFld" into StrtCrdHeader
  69. put short name of next card into RCard
  70. put short name of this card into StrtCrd
  71. set lockscreen to "true"
  72. if RCard is "@" then
  73. domenu "new card"
  74. set name of this card to "@"
  75. if StrtCrd is "@" then
  76. put StrtCrdHeader into field "HeaderFld"
  77. else
  78. put "‚Ķ" && StrtCrdHeader && "Cont." into field "HeaderFld"
  79. end if
  80. put "true" into NwCrd
  81. else
  82. put "false" into NwCrd
  83. end if
  84. domenu "new button"
  85. set name of button "new button" to "NxtPg"
  86. set showname of button "NxtPg" to false
  87. set rect of button "NxtPg" to 460, 0, 480, 17
  88. set icon of button "NxtPg" to "sml Next Arrow"
  89. set loc of button "NxtPg" to 460,8
  90. set style of button "NxtPg" to opaque
  91. set script of button "NxtPg" to "On mouseup" & return & ¬¨
  92. "go to next card" & return & ¬¨
  93. "if the number of card fields is 1 then" & return & ¬¨
  94. "get rect of card field" && quote & "txtfld" & quote & return & ¬¨
  95. "delete item 4 of it" & return & "delete item 3 of it" & return & ¬¨
  96. "click at it" & return & ¬¨
  97. "end if" & return & "end mouseup"
  98. if not NwCrd then
  99. domenu "new card"
  100. set name of this card to "@"
  101. if StrtCrd is "@" then
  102. put StrtCrdHeader into field "HeaderFld"
  103. else
  104. put "‚Ķ" && StrtCrdHeader && "Cont." into field "HeaderFld"
  105. end if
  106. end if
  107. domenu "new button"
  108. set name of button "new button" to "PrvPg"
  109. set showname of button "PrvPg" to false
  110. set rect of button "PrvPg" to 481, 0, 501, 17
  111. set icon of button "PrvPg" to "sml Prev Arrow"
  112. set loc of button "PrvPg" to 481,8
  113. set style of button "PrvPg" to opaque
  114. set script of button "PrvPg" to "On mouseup" & return & ¬¨
  115. "go to prev card" & return & ¬¨
  116. "if the number of card fields is 1 then" & return & ¬¨
  117. "get rect of card field" && quote & "txtfld" & quote & return & ¬¨
  118. "delete item 4 of it" & return & "delete item 3 of it" & return & ¬¨
  119. "click at it" & return & ¬¨
  120. "end if" & return &"end mouseup"
  121. choose browse tool
  122. end MakePage
  123.  
  124. on MakeField
  125. global WindType
  126. domenu "New field"
  127. set name of card field "" to "TxtFld"
  128. set rect of card field "TxtFld" to 19,18,512,342
  129. if WindType is "Scroll"
  130. then set Style of card field "TxtFld" to Scrolling
  131. if WindType is "Reg Text"
  132. then set Style of card field "Txtfld" to transparent
  133. set textFont of card field "TxtFld" to geneva
  134. set TextSize of card field "Txtfld" to 9
  135. set